home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.04 Apr 89 / Corners Code / Common.p next >
Encoding:
Text File  |  1989-01-19  |  1.6 KB  |  77 lines  |  [TEXT/MPS ]
  1. (******************************************************************)
  2.  
  3. unit Common;
  4.     
  5. (******************************************************************)
  6.  
  7. interface
  8.     
  9. (*******************************************************************
  10.     
  11.     key codes:
  12.         
  13. *******************************************************************)
  14.     
  15.     const
  16.     
  17.         enterkey                =    3;
  18.         backspace            =    8;
  19.         tabkey                =    9;
  20.         returnkey            =    13;
  21.         clearkey                =    27;
  22.         leftarrow            =    28;
  23.         rightarrow            =    29;
  24.         uparrow                =    30;
  25.         downarrow            =    31;
  26.         periodkey            =    46;
  27.     
  28. (*******************************************************************
  29.     
  30.     Dialog items:
  31.         
  32. *******************************************************************)
  33.         
  34.         themask                =    3;
  35.         
  36. (*******************************************************************
  37.     
  38.     Low-memory globals:
  39.         
  40. *******************************************************************)
  41.     
  42.         applscratch            =    $A78;
  43.         bootdrive            =    $210;
  44.         curappname            =    $910;
  45.         curdirstore            =    $398;
  46.         currenta5            =    $904;
  47.         findername            =    $2E0;
  48.         fsfcblen                =    $3F6;
  49.         grayrgn                =    $9EE;
  50.         iaznotify            =    $33C;
  51.         mbarheight            =    $BAA;
  52.         menuflash            =    $A24;
  53.         resload                =    $A5E;
  54.         rom85                    =    $28E;
  55.         sfsavedisk            =    $214;
  56.         sysmap                =    $A58;
  57.         windowlist            =    $9D6;
  58.     
  59. (*******************************************************************
  60.     
  61.     Standard types:
  62.         
  63. *******************************************************************)
  64.  
  65.     type
  66.         
  67.         logical                =    boolean;
  68.         long                    =    longint;
  69.         
  70.         shortpointer        =    ^integer;
  71.         longpointer            =    ^long;
  72.     
  73. (******************************************************************)
  74.  
  75. end.
  76.     
  77. (******************************************************************)